VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "classBatchRecord"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'Project Name:  Generic
'Host Name:     Generic.classBatchRecord
'Date:          2005-02-01
'Version:       3.00

' Provide a collection which doesn't error on invalid key and
' allows replacement of items.
'
' 2004-08-03, JFW, Initial version, created with Hummingbird TD Batch.

Option Explicit


Dim m_colRecord As Collection
'



Public Property Get Item(ByVal varItem As Variant) As Variant

    On Error GoTo ItemNull
    Item = m_colRecord.Item(CStr(varItem))
    Exit Property

ItemNull:
    Err.Clear
    Item = Null
    
End Property

Public Property Let Item(ByVal varItem As Variant, ByVal vNewValue As Variant)

    On Error Resume Next
    m_colRecord.Remove CStr(varItem)
    m_colRecord.Add vNewValue, CStr(varItem)
    Err.Clear
    
End Property

Private Sub Class_Initialize()

    Set m_colRecord = New Collection
    
End Sub
